From c0281f717e106835e518078b7b4999a3a958fe92 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 9 Jul 2007 14:46:36 +0000 Subject: [PATCH] (isearch-edit-string): Call to isearch-push-state after the search. --- lisp/isearch.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index f5a063200f1..770d607713e 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -1,4 +1,4 @@ -;;; isearch.el --- incremental search minor mode +----------;;; isearch.el --- incremental search minor mode ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1999, 2000, ;; 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. @@ -674,6 +674,8 @@ is treated as a regexp. See \\[isearch-forward] for more info." (make-local-variable 'input-method-function)) (setq input-method-function nil) + (setq cursor-in-echo-area t) + (looking-at "") (setq isearch-window-configuration (if isearch-slow-terminal-mode (current-window-configuration) nil)) @@ -798,6 +800,8 @@ NOPUSH is t and EDIT is t." (setq input-method-function isearch-input-method-function) (kill-local-variable 'input-method-function)) + (setq cursor-in-echo-area nil) + (force-mode-line-update) ;; If we ended in the middle of some intangible text, @@ -1069,6 +1073,7 @@ If first char entered is \\[isearch-yank-word-or-char], then do word search inst ;; Reinvoke the pending search. (isearch-search) + (isearch-push-state) (isearch-update) (if isearch-nonincremental (progn -- 2.30.2